home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -websites- / whdload / games / mercenary2.lha / Mercenary2-install / InstallSavedGames < prev    next >
Text File  |  1999-03-02  |  1KB  |  52 lines
  1. ;****************************
  2. ;----------------------------
  3. ; Checks if given program is reachable via the path
  4. ; if not abort install
  5. ; IN:  #program - to check
  6. ; OUT: -
  7.  
  8. (procedure P_chkrun
  9.   (if
  10.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  11.     ("")
  12.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  13.   )
  14. )
  15.  
  16. ;****************************
  17.  
  18. (set #program "WHDLoad")
  19. (P_chkrun)
  20.  
  21. (set #program "RawDIC")
  22. (P_chkrun)
  23.  
  24. (if
  25.   (= @user-level 2)
  26.   (
  27.     (set #CI_drive
  28.       (askchoice
  29.     (prompt "Select source drive for diskimages")
  30.     (default 0)
  31.     (choices "DF0:" "DF1:" "DF2:" "DF3:")
  32.     (help @askchoice-help)
  33.       )
  34.     )
  35.     (select #CI_drive
  36.       (set #CI_drive "DF0:")
  37.       (set #CI_drive "DF1:")
  38.       (set #CI_drive "DF2:")
  39.       (set #CI_drive "DF3:")
  40.     )
  41.   )
  42.   (set #CI_drive "DF0:")
  43. )
  44.  
  45. ;----------------------------
  46.  
  47. (message ("\nPlease note that existing saved games\nmight be overwritten."))
  48. (working)
  49. (run ("RawDIC SLAVE=%ssave.islave SOURCE=%s" @app-name #CI_drive))
  50.  
  51. (exit)
  52.